LLL 

LLLLLLLLLLLLLLL 
LLLLELLLLLLLLLL 
LLLLLLLLLLLLLLL 


000000000 

000000000 

000000000 
000 000 


000000000 
000000000 
000000000 


AAAAAAAAA 
AAAAAAAAA 
AAAAAAAAA 


SSESESESS 


AAAAAAAAAAAAAAA 


DDDDDDDDDDDD 
DDDDDDDDDDDD 
1 hae 


DODDDDDDD 
DDDDDDDDD 
DODDDDDDD 


voovVvVv°c°cV~o°O 


4-44-44 4-4-4444 
\—4-4-4-4-4-4-4-4 4444S 
vcvovv Vv VvVTVT9°T00C0C0C00"8 


ef ILE**#]D**RDBDISP 


RRRRRRRR  DDDDDDDD  BBBBBBBB DDDDDDDD III SSSSSSSS_PPPPPPPP 
RRRRRRRR_-DDDDDDDD~=s- BBBBBBBB —s DDDDDDDD eeeee SSSSSSSS_PPPPPPPP 
RR RR DD DD BB BB DD DD II $$ PP pp 
RR RR DD DD 8B BB DD DD 1] 5S PP PP 
RR RR DD DD BB BB OD DD II S$ PP PP 
RR RR 0D DD 8B BB DD DD 1] $$ pp PP 
RRRRRRRR- OD DD BBBBBBBB DD DD 1] SSSSSS__- PPPPPPPP 
RRRRRRRR —OD dD oD dD 1] SSSSSS___ PPPPPPPP 
RR RR dD DD 88 BB DD dD 1] SS PP 
RR RR DD DD 8B BB OD DD 11 SS PP 
R RR DD DD 8B BB DD dD II SS PP one 
RR RR DD DD 8B BB DD dD II SS PP aa 
RR RR DDDDDDDD  BBBBBBBB DDDDDDDD IIIII1  $SSSSSSS PP mth 
RR RR DDDDDDDD BBBBBBBB DDDDDDDD IIII11  SSSSSSSS_ PP al 
LL WII SSSSSSSS 
LL eeeee SSSSSSSS 
LL I] SS 
LL 1] SS 
LL 1] 5S 
LL I] $$ 
LL 1] SSSSSS 
LL 1] SSSSSS 
LL 1] SS 
LL 1] SS 
LL 1] SS 
LL I] $$ 
LLLLLLLLLL ©=sdTIII) «= SSSSSSSS 
LLLLLELLLE «= sdTTI) «© SSSSSSSS 


6 
popp 1S? = Rights database system service Jispatc 16-SEP-1984 01:58:36 VAX/VMS Macro v04-00 Page 0 
Table of contents 


1 Declarations and sqegtes 

(5) Transfer vector and Service Definitions 
(4) Change Mode D aperenee Vector Block 

(5) Executive Mode Dispatcher 

(6) 2 Rundown Handler 


L. 6 
~ Rights database system service dispatc 16-SEP-1984 01:58: AX/VMS Macro V04-00 Pp 1 
; : . pate en SEP=-1986 01:06:55 ECOADSS.sReIRDBDISPLmAR:1 | 28] 


-TITLE RO bist = Rights database system service dispatcher 
-IDENT ‘v04-000' 


—PAAARARARRARAARASARARALALARLALALELE LEAS ALES ERR RARE ARERR SEER ER ARES SESE SES SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


SOFTWARE IS FURNISHED UNDER A LICENSE AND MA 
IN ACCORDANCE WITH R F C 


**® © 
*® 7 
*@ 
*® ra 
*® ra 
*@ ® 
*® te 
;* OF THE ABOVE T * 
;% ES THEREOF MAY NOT BE PROVIDED OR OTHE * 
;* R PERSON. NO TITLE TO AND OWNERSHIP O * 
;* TRANSFERRED. e 
*® * 
*® ke 
*® * 
*® * 
**® th 
*® 7 
**® uw 
**® i 
*® * 
*® * 


;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* AND SHOULD NOT IT 


+e ~< 


T 
BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR RELIABILITY OF ITS 


BIL 
IS NOT SUPPLIED BY DIGITAL. 


H 
(RR RARARAAAAAALALASALE LESSER EEE RRR RRS E ERE E EERE ERR R ARERR RRR RRR RRR RRA RSS SSG 


s Facility: Rights database (RDB) System Services 


Abstract: 
This module contains the dispatcher for the rights database 
loadable systes services. These system services are implemented 
in a privileged shareable image. The remaining rights database 
system services are in the exec. 


Overview: 

The rights database system services are contained in a privileged 
shareable image that is linked into user program images in exactly the 
same fashion as any shareable image. The creation and installation of 
a privileged, shareable Vaage is slightly different from that of an 
ordinary shareable image. These differences are: 


DOOOSCOSOSOSOOSOSSOSOSOOSOSOSOSOSOSOSOSOSOSOSOOOSOOOSOOOOOSOOO 


COOCOCCOCOCOSOCOCOCOCCOSCOOCOCOOSoOoOoOoO: 


gentres information to the inoge activator. This vector 
28 she lowest address in an image section with the VEC 
attribute. 


2. The shareable image is Linked with the /PROTECT option 
that marks all of the image sections so that they will 
protected and given EXEC mode ownership by the image 
ac ‘ 


3. The shareable image must be installed /SHARE /PROTECT 
with the INSTALL utility in order for the image activator 
te sonnect the privileged shareable image to the change mode 
spatchers. 
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A privileged shareable {noge implementing user written system services 
is comprised of the following major components: 


1. A transfer vector containing alt of the entry getese and 
ollecting them at the lowest virtual address in the shareable 
mage. This formalism enables revision of the shareable 

nous witneut necessitating the relinking of images that 
use it. 


2. A Privileged Library Vector in a PSECT with the VEC attribute 
that describes the entry points for dispatching EXEC and 
KERNEL mode services along with validation information. 


3. A dispatcher for kernel mode services. This code will 
be called by the VMS change mode dispatcher when it 
fails to recognize a kernel mode service request. 


4. A Gropovehor for executive mode services. This code will 
be called by the VMS change mode dispatcher when it fails 
to recognize an executive mode service request. 


5. Service routines to perform the various services. 


; Enviornment: 
VAX/VMS operating system, installed as a privileged shareable image 


Author: 
R. Scott Hanna, CREATION DATE: 17-JAN-1983 
; Modified by: 


V03-005 ACG0417 Andrew C. Goldstein 18-Apr-1984 16:35 
Add rundown routine to dequeue ACL locks; fix minimum 
arg count for SFORMAT_ACL and S$PARSE_ACL. 


V03-004 LY0468 Larry Yetto 22-MAR-1984 14:11 
Add two new paramaters to SMOD_IDENT for the new name 
and new value. 


v03-003 LMP0185 L. Mark Pilant 6-Feb-1984 12:55 
Add a new service SCHANGE_ACL for changing the ACL on 
random objects. 


v03-002 LMP0100 L. Mark Pilant, 14-Apr-1983 11:32 
Add new services: SFORMAT_ACL and $PARSE_ACL. 


v03-001 RSHOO09 R. Scott Hanna 09-Mar-1983 
Changed CHME codes. 
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-SBTTL Declarations and Equates 
Macro Definitions 
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DEFINE_SERVICE = A macro to make the appropriate entries in several 
different PSECTs required to define an EXEC or KERNEL 
mode service. These include the transfer vector, 
the case table for dispatching, and a table containing 
the number of required arguments. 


DEF INE_SERVICE Name,Number_of_Arguments ,Mode 


«MACRO DEFINE SERVICE NAME ,NARG=0 ,MODE=KERNEL 
-PSECT $SSTRANSFER_VECTOR, PAGE ,NOWRT,EXE,PIC, SHR 
«ALIGN QUAD 3 align entry points for speed and style 
. TRANSFER NAME ; Define name as universal symbol for entry 
«MASK NAME 3; Use entry mask defined in main routine 
1F IDN MODE ,KERNEL 
CHMK #<KCODE_BASE+KERNEL_COUNTER> ; Change to kernel mode and execute 
n 


RE ; Retur 
KERNEL_COUNTER=KERNEL_COUNTER+1 ; Advance counter 
-PSECT KERNEL_NARG,BYTE,NOWRT,EXE,PIC,SHR 

T NARG 


DOSOOSCOSOOOOSSSOOSOSOSSOSOSOOOSOOSOOOSOOOSOOOOSOOOOOOOSoOO 
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BYTE ; Define number of required arguments 
0 -PSECT USER_KERNEL_DISP1,BYTE,NOWRT,EXE,PIC,SHR 
WORD +NARE-KCASE_BASE ; Make entry in kernel mode CASE table 
0 - IFF 
09 CURE #<ECODE_BASE+EXEC_COUNTER> ; Change to executive mode and execute 
; Return 
8p EXEC_COUNTER=EXEC_COUNTER+1 ; Advance counter 
3 -PSECT EXEC_NARG,BYTE,NOWRT,EXE,PIC,SHR 
-BYTE  NARG : Define number of required arguments 
00 -PSECT USER_EXEC_DISP1,BYTE,NOWRT,EXE,PIC.SHR 
00 20 “WORD +NAME-ECASE_BASE ; Make entry in exec mode CASE table 
0 5 TENDM DEF INE_SERVICE ; 
Be 20 ; Equated Symbols 
5 ° 
35 SPLVDEF ; Define PLV offsets and values 
38 : $PRDEF ; Define processor register numbers 
69 ; Initialize counters for change mode dispatching codes 
99000000 00 6¢ KERNEL COUNTER=0 ; Kernel code counter | 
000000 o7 EXEC_COUNTER=0 ; Exec code counter | 
65 ; 
66 : Own Storage | 
0000 0 68 ” -PSECT KERNEL_NARG,BYTE ,NOWRT,EXE PIC, SHR , 
0 69 KERNEL _NARG: ; Base of byte table containing the 


- Rights database system service atc 1 P=1984 01:5 AX/VMS Mac 0 v04-00 Page R 
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1 number of required arguments. 
0000 ° 153 -PSECT EXEC_NARG,BYTE “NOWRT EXE, PIC,SHR . . 
173 EXEC _NARG: ; Base of byte table containing the 
0 ; number of required arguments. 
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-SBTTL Transfer Vector and Service Definitions 


y 
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— 
™~ 
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The use of transfer vectors to effect entry to the user written system services 
enables some gl of the shareable image containing them without necessitating 
a re-link of all programs that call them. The PSECT containinng the transfer 
vector will be positioned at the lowest virtual address in the shareable image 
and so long as the transfer vector is not re-ordered, programs Linked with 

one version of the shareable image will continue to work with the next. 


Thus as additional services are added to a privileged shareable image, their 
definitions should be added to the end of the following List to ensure that 
prograns using previous versions of it will not need to be re-Linked. 

o completely avoid relinking existing programs the size of the privileged 
shareable image must not change so some padding will be required to provide 
the opportunity for future growth. 


DEFINE_SERVICE SYSSADD_HOLDER,3,EXEC ;Add Holder Record To The Rights Dat 
DEFINE SERVICE SYSS$ADD_IDEN EXEC zAdd Identifier To The Rights Databa 
DEFINE-SERVICE SYSS$CREATE_RDB,1,EXEC  :Create The Rights Database 
DEFINE-SERVICE SYSSFIND_HELD,4,€XEC :Find Identifiers Held By Holder 
DEFINE-SERVICE SYSSFIND-HOLDER.4,EXEC :Find Holder Of Identifier 
DEFINE_SERVICE SYSSMOD_ROLDER 4 EXEC sModify Holder Record In Rights Data 
DEFINE-SERVICE SYSSMOD-IDENT,5,EXEC  :Modify Identifier Record In Rights 
DEFINE SERVICE SYS$SREM_HOLDER 2,EXEC Remove Holder Record From Rights Da 
DEF INE_SERVICE SYSSREM~IDENT, 1, EXEC zRemove Identifier From Rights Datab 


ACL manipulation services. 


DEFINE_SERVICE SYSSFORMAT_ACL,7,EXEC ;Convert ACE to text 
DEFINE-SERVICE SYSSPARSE_ACL,4,€XEC :Convert ACE to binary 
DEFINE-SERVICE SYSSCHANGE_ACL,?,EXEC :modify an object's ACL 


The base values used to generate the dispatching codes should be negative for 

user services and must be chosen to avoid overlap with any other privileged 
shareable images that will be used concurrently. Their definition is 

deferred to this point in the aoe | to cause their use in the preceding 

macro calls to be forward references that guarantee the size of the change 

mode instructions to be four bytes. This satisfies an assumption that is 

made by for services that have to wait and be retried. The PC for retryin 

the change mode instruction that invokes the service is assumed to be 4 bytes 

less than that saved in the change mode exception frame. Of course, the particula 
service routine determines whether this is possible. 


The rights database system services have a block of 16 CHME codes reserved 
(16416-16431). 


ot hh hh 9 9 9 9 9 3939 3 SS SS SS BOO OO OOO OOO SOSOOSSOSOSOSOSOS 
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=0 ; No CHMK codes used 
=16416 ; Base CHME code value for these services 
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7 . -SBTTL Change Mode Dispatcher Vector Block 


1 
1 ; 
1 5 ; This vector is used by the image activator to connect the privileged shareable 
1 QO ; image to the VMS change mode dispatcher. The offsets in the vector are self- | 
1 1 ; relative to aed the construction of position independent images. The system 
1 4 ; version number will be used by the image activator to verify that this shareable | 
4 7 i image was Linked with the symbol table for the current system. | 
4 5 ; Change Mode Vector Format | 
01 § : eee es eer en eer e ero eer enw eece2oese Se ee eee eeeeaeaeane eve e 
4 8 3 : Vector Type Code ! PLVSL_TYPE 
1 ; : (PLVSC_TYP_CMOD) 
88} 40 3 betwee wm ene ween eer anree Teme eB BE OEE Be we Se + 
0" 41 ; : System Version Number !  PLVSL_VERSION 
Rot g 3 : (SYS$K_VERSION) ! 
901 rf: : Kernel Mode Dispatcher Offset } PLVSL_KERNEL 
001 46 : poccecccccccce eecccceccccccocccccccccccccce + 
Bots rt ; Exec Mode Entry Offset :  PLVSL_EXEC 
001 49 : poeveseeenns sueeueeeeesuessecesseesonssesse + 
Bat 9 : User Rundown Service Offset PLV$L_USRUNDWN 
0018 3 : pocccenccceeccscecccceccscecccccecsccocccce + 
Bais 33 3 : Reserved ' 
001 54 ; : 
001 55: pecwnceneewcccccsccccccececcccecccccecccece 4 
it 2$ 3 RMS Dispatcher Offset ;  PLVSL_RMS 
001 58: pecweeccccceccwececcceccccccececesocecescoce + 
it 2B ; Address Check 1  PLVSL_CHECK 
Bais 61: poececcceccceccewececcecceocecceccscoccccces + 
oie 6¢ ; 
001 63 ; 
00008 0 rt -PSECT USER_SERVICES,PAGE,VEC,PIC,NOWRT,EXE,SHR 
00000001 $00 66 -LONG PLVSC_TYP_CMOD ; Set type of vector to change mode dispatch 
tae 04 6 . LONG YS$K-VERSION 3; Identify system version 
44444 08 oe - LONG ; No kernel mode dispatcher — 
0000001" of § ~-LONG EXEC _DISPATCH-. i Offset to executive mode dispatcher 
FFFFFFFG* 4 9 -LONG RDB_RUNDOWN-. ; Rundown routine 
sit'4 464 14 ? -LONG ; Reserved. 
sia 4 zie ? - LONG ; No RMS dispatcher 
00000000 1C 7 - LONG ; Address check - PIC image 
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] 
i: | 
y = -SBTTL Executive Mode Dispatcher | 
” : Input Parameters: 
hi : (SP) = Return address if bad change mode value 
0 1 ; RO = Change mode argument value. | 
0 : : AP - ah nag me pointer existing when the change | 
8 ; ; mode instruction was executed. | 
8 § : FP = Address of minimal call frame to exit 
3 the change mode dispatcher and return to 
0 } : the original mode. 
000000 90 ° -PSECT USER_EXEC_DISPO,BYTE,NOWRT,EXE,PIC,SHR 
000 91 EACCVIO: ; Exec access violation 
50 0000'8F 3 Bee 35 novzuL #SS$_ACCVIO,RO 3 wes necess violation status code 
3 and return 
0006 94 EINSFARG: ; Exec insufficient arguments. 
50 0000'8F 3 443 t MOVZWL #SS$_INSFARG,RO ; wet etatus code and 
3 return 
05 448 3 ENOTME: RSB ; RSB to forward request | 
00D 299 EXEC_DISPATCH:: ; Entry to dispatcher 
51 BFEO CO 9 00D 00 MOVAB W*-ECODE_BASE(RO),R1 3 Normalize dispatch code value 
F8 19 Q012 01 BLSS NOTM ; Branch if code value too low 
oc 51 B1 0014 8 CMPW R1,#EXEC_COUNTER 3; Check hign mit 
is.hCUtOg Beto 32 BGEQU ENOTME ; Branch if out of range 
0019 05 : The dispatch code has now been verified as being handled by this dispatcher, 
0019 06 ; now the argument List will be probed and the required number of arguments 
b19 Be 3; verified. 
51 QOO0'CF41 9A 0019 09 ° MOVZBL W*EXEC_NARGCR1],R1 ; Get required argument count 
51 00000004 9F41 DE OO1F 10 MOVAL a@#4C(R1J,R1 ; Compute byte count including arg count 
32 7 11 IFNORD R1,(AP),EACCVIO ; Branch arglist not readable 
BFEO'CF40 6C 91 00 I PB —s_ (AP) ,W*<EXEC_NARG-ECODE_BASE>CROJ ; Check for required number 
pi 1F 00 3 1 BLSSU EINSFARG ; of arguments 
5E D 00 00 14 MOV FP,SP ; remove JSB longwords from stack 
50 AF 0038 15 CASEW = RO,- ; Case on change mode 
O3A 16 - 3; argument vaiue 
OSA 1 #ECODE _BASE ,- ; Base value 
0B 4020 8F A 13 #<EXEC”COUNTER-1> ; Limit value (number of entries) 
: i} ECASE_BASE: ; Case table base address for say, ges od, 
6 E 1; Case table entries are made in the PSECT USER_EXEC_DISP1 by 
Os 302 invocations of the DEFINE SERVICE macro, The three PSECTS, | 
E Z 3 USER_EXEC_DISPO,1,2 will Be abutted in lexical order at Link-time. 
e | 
0000 6 5 -PSECT USER_EXEC DISP2,BYTE ,NOWRT,EXE,PIC,SHR 
§ BUG_CHECK IVSSRVROST FATAL ; fange validation performed above so 
4 ; should never reach here | 


,. Ff 
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r -SBTTL Rundown Handler 
r ++ 
4 : The rundown handler is ees tee when image or process rundown is performed. 
r ¢ : It cleans up context related to this package of services. 
4 : ; Calling Sequence: 
4 8 JSB RDB_RUNDOWN 
4 340 : Inputs: 
4 ty 3 pie 
, 4 4g 3 none 
4 43; 
004 44 j-- 
Bee 45 
004 m4 
004 47 RDB_RUNDOWN: 
OOOO0000'EF 00 FB 0004 48 CALLS #0,RUNDOWN_CHANGE_ACL ; Do rundown for the SCHANGE_ACL service 
05 0008 49 RSB 
Babe 50 
00C 51 
000C 52 . END 
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Symbol table ° é ° eet Pi 1:28:38 YROADSS. SRERDBDISP MAR: 1 ° (6). 
BUGS_IVSSRVRQST eeereree = § 6X § 3 
EACCTIO 8 OR 3 
ECASE_BASE 3 R 7 3 
ECODE BASE s 4 ; 
EINSFARG 6 R 7 5 
ENOT CR 7 F 
EXEC. TER = C ; 
EXEC_DISPATCH RG 8 3 
EXEC_NARG R 3 3 
KCODE_BASE s ; 
KERNEC_COUNTER = 3 
KERNEL_NARG 8 a 02 ; 
PLVSC_TYP_CMOD = ; 
RDB_R 0000004 R 8 3 
RUNDOWN CHANGE _ACL eeeeeeee =X | : 
SS$_ACCVIO eeeneeee = 6X ; 
SS$_INSFARG eeneeeee = = YX 8 07 ; 
SYSSADD_HOLDER eeneeeee =X 8604 3 
SYSSADD_ IDENT eeeeneee = §=6X |= (04 3 
SYSSCHANGE_ACL eeeeenee =X 04 i 
SYSSCREATE RDB eennenee = X 04 5 
SYSS$F IND_HELD eeneenee §=6X = =—04 ; 
SYSSFIND_HOLDER eeeeenee = = 6X | 04 3 
SYSSFORMAT ACL eenerere =X = 04 3 
SYS$K_VERSTON eeneenee =X 8606 | 3 
SYSSMOD_HOLDER eeneneee = 6X 8 04 3 
SYS NT eeekaeee x 04 g 
SYSSPARSE ACL eteerene x 04 | : 
SYS$REM_HOLDER aeeeeeee X04 3 
SYS$SREM_ IDENT eeeeeree XX 04 ; 
oer nr we enone sseee + é 
! Peeci synopsis : : 
PSECT name Allocation PSECT No. Attributes : 
» 6. « 00000000 < 0.) 00 ¢ OO.) NOPIC USR CON ABS ~- LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 3 
SABSS 9444 4445 ( 0.) 83 ( 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE F 
KERNEL _NARG 4444 ( oft ¢ ( ¢°{ PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC BYTE 3 
XEC_NAR O0O000C (« 12.) 8 ( ol PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC BYTE 3 
SSSTRANSFER_VECTOR OOOOOSF (« 95.) O04 ¢ 4.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC PAGE é 
USER_EXEC_DTSP1 : 48 ( §3°} .< Soe PIC USR CON REL LCL SHR’ EXE RD NOWRT NOVEC BYTE 3 
USER_ SERVICES § ( ) § ( §. PIC USR CON REL LCL SHR EXE =RD NOWRT VEC PAGE 3 
USER_EXEC_DISPO OOOSE ( 62.) ( on PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC BYTE 3 
USER_EXEC_DISP2 0000000C <( 12.) 8( 8.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC BYTE : 
+ 3 
! Performance indicators : 3 
$e wre eet cee meee mie wenn e en é 
Phase Page faults CPU Time Elapsed Time : 


om 


o 
a 
4 
a 
6 
f 
$ 
‘ 
4 
g 
a 
4 
t 
q 
4 
a 
a 
4 
a 
a 
4 
d 
q 
‘ 
7 


H 7 
RDBDISP - Rights database system service dispatc 16-SEP- 758: 
hte Macro Run Statistics ° , , § SEP- ; g 28:38 


702.41 
00.24 
Psect synopsis output : ‘ 
Cross-reference output 00:00. 
Assembler run totals 40 00:04. 


0 7:00:00. p 
4 :00: 8:3 
The working *st Limit was 1200 pages. 
11621 bytes (235 pages) of virtual memory were used to buffer the intermediate ge 
There were 10 pages of symbol table space allocated to hold 120 non-local ng local symbols. 
352 source Lines were read in Pass 1, produc ng object records in Pass 2. 
4 pages of virtual memory were used to define 11 macros. 


Pass 2 8 :00:00.9 
Symbol table output :00: ; 


+ 
! Macro Library statistics ! 


Feet en et eeer eee eee eee esa se sce + 


Macro Library name Macros defined 


~$5338DUAG8: [51's -08 JL18.MLB8; 1 
$255$DUA08: (SYSLIBJSTARLET.MLB; 2 

TOTALS (all Libraries) 

163 GETS were required to define 7 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=L1S$:RDBD1SP/0BJ=08J$:RDBDISP MSRC$:RDBDISP/UPDATE=(ENHS$:RDBDISP) +EXECML$/LIB 


; 
SSS SSS SSS SSS SS 
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